<!--#include file="lib/utf-8.asp"-->
<!--#include file="lib/connopen.asp"-->
<!--#include file="lib/asp-json-lib.asp"-->
<%
Response.ContentType = "application/json"
company=request("term")
sql="select substr(id,1,10) as id,company as label,company as value from company where company like '%"&company&"%' limit 10"
QueryToJSON(conn,sql).Flush
' Set json = jsArray()
' Set json = jsObject()
' Set rs = conn.Execute(sql)
' While Not (rs.EOF Or rs.BOF)
	' json("id") = rs("id")
	' json("label") = rs("company")
	' json("value") = rs("company")
	' rs.MoveNext
' Wend
' rs.close
' json.Flush
%>
<!--#include file="lib/connclose.asp"-->